E (SETQ $PRINT-BUDGET-MONTHLY nil) READ (SALARY IN DSK (PRO HE)) READ (SDF3 IN DSK (PRO HE)) BUDGET FIRST-YEAR (SDF3A OUT DSK (PRO HE)) BUDGET SECOND-YEAR (SDF3B OUT DSK (PRO HE)) BUDGET THIRD-YEAR (SDF3C OUT DSK (PRO HE)) BUDGET FOURTH-YEAR (SDF3D OUT DSK (PRO HE)) BUDGET FIFTH-YEAR (SDF3E OUT DSK (PRO HE))